home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / kcl.lha / cmpnew / cmpfun.c < prev    next >
C/C++ Source or Header  |  1987-06-04  |  46KB  |  1,905 lines
  1.  
  2. /* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
  3. #include <cmpinclude.h>
  4. #include "cmpfun.h"
  5. init_cmpfun(start,size,data)char *start;int size;object data;
  6. {    register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
  7.     Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
  8.     (void)(putprop(VV[0],VV[1],VV[2]));
  9.     (void)(putprop(VV[0],VV[3],VV[4]));
  10.     (void)(putprop(VV[5],VV[6],VV[2]));
  11.     (void)(putprop(VV[7],VV[8],VV[2]));
  12.     (void)(putprop(VV[7],VV[9],VV[4]));
  13.     (void)(putprop(VV[10],VV[11],VV[4]));
  14.     (void)(putprop(VV[12],VV[13],VV[2]));
  15.     (void)(putprop(VV[14],VV[15],VV[2]));
  16.     (void)(putprop(VV[14],VV[16],VV[4]));
  17.     (void)(putprop(VV[17],VV[18],VV[2]));
  18.     (void)(putprop(VV[17],VV[19],VV[4]));
  19.     (void)(putprop(VV[20],VV[21],VV[2]));
  20.     (void)(putprop(VV[22],VV[23],VV[2]));
  21.     (void)(putprop(VV[24],VV[25],VV[4]));
  22.     (void)(putprop(VV[26],VV[27],VV[2]));
  23.     (void)(putprop(VV[28],VV[29],VV[4]));
  24.     (void)(putprop(VV[30],VV[31],VV[2]));
  25.     (void)(putprop(VV[30],VV[32],VV[4]));
  26.     (void)(putprop(VV[33],VV[34],VV[35]));
  27.     (void)(putprop(VV[36],VV[37],VV[35]));
  28.     (void)(putprop(VV[38],VV[39],VV[35]));
  29.     (void)(putprop(VV[40],VV[41],VV[35]));
  30.     (void)(putprop(VV[42],VV[43],VV[2]));
  31.     (void)(putprop(VV[44],VV[45],VV[4]));
  32.     (void)(putprop(VV[46],VV[47],VV[2]));
  33.     (void)(putprop(VV[48],VV[49],VV[4]));
  34.     VV[51]->s.s_stype=(short)stp_special;
  35.     if(VV[51]->s.s_dbind == OBJNULL){
  36.     VV[51]->s.s_dbind = VV[50];}
  37.     MF(VV[1],L27,start,size,data);
  38.     MF(VV[3],L28,start,size,data);
  39.     MF(VV[6],L29,start,size,data);
  40.     MF(VV[8],L30,start,size,data);
  41.     MF(VV[9],L31,start,size,data);
  42.     MF(VV[124],L32,start,size,data);
  43.     MF(VV[11],L33,start,size,data);
  44.     MF(VV[13],L34,start,size,data);
  45.     MF(VV[15],L35,start,size,data);
  46.     MF(VV[16],L36,start,size,data);
  47.     MF(VV[18],L37,start,size,data);
  48.     MF(VV[19],L38,start,size,data);
  49.     MF(VV[21],L39,start,size,data);
  50.     MF(VV[23],L40,start,size,data);
  51.     MF(VV[25],L41,start,size,data);
  52.     MF(VV[27],L42,start,size,data);
  53.     MF(VV[29],L43,start,size,data);
  54.     MF(VV[31],L44,start,size,data);
  55.     MF(VV[32],L45,start,size,data);
  56.     MF(VV[125],L46,start,size,data);
  57.     MF(VV[126],L47,start,size,data);
  58.     MF(VV[127],L48,start,size,data);
  59.     MF(VV[128],L49,start,size,data);
  60.     MF(VV[129],L50,start,size,data);
  61.     MF(VV[130],L51,start,size,data);
  62.     MF(VV[131],L52,start,size,data);
  63.     MF(VV[43],L53,start,size,data);
  64.     MF(VV[45],L54,start,size,data);
  65.     MF(VV[47],L55,start,size,data);
  66.     MF(VV[49],L56,start,size,data);
  67.     vs_top=vs_base=base;
  68. }
  69. /*    function definition for C1PRINC    */
  70.  
  71. static L27()
  72. {    register object *base=vs_base;
  73.     register object *sup=base+VM3;
  74.     vs_reserve(VM3);
  75.     check_arg(1);
  76.     vs_top=sup;
  77. TTL:;
  78.     base[1]= Cnil;
  79.     base[2]= simple_symlispcall_no_event(VV[132],base+3,0);
  80.     if(!(endp(base[0]))){
  81.     goto T29;}
  82.     base[3]= VV[0];
  83.     base[4]= VV[52];
  84.     base[5]= VV[53];
  85.     (void)simple_symlispcall_no_event(VV[133],base+3,3);
  86. T29:;
  87.     if(endp(cdr(base[0]))){
  88.     goto T35;}
  89.     if(endp(cddr(base[0]))){
  90.     goto T35;}
  91.     base[3]= VV[0];
  92.     base[4]= VV[54];
  93.     base[5]= make_fixnum(length(base[0]));
  94.     (void)simple_symlispcall_no_event(VV[134],base+3,3);
  95. T35:;
  96.     if(!(endp(cdr(base[0])))){
  97.     goto T46;}
  98.     base[1]= simple_symlispcall_no_event(VV[135],base+3,0);
  99.     goto T44;
  100. T46:;
  101.     base[3]= cadr(base[0]);
  102.     base[4]= base[2];
  103.     base[1]= simple_symlispcall_no_event(VV[136],base+3,2);
  104. T44:;
  105.     if(!(type_of(car(base[0]))==t_string)){
  106.     goto T53;}
  107.     base[3]= make_fixnum(length(car(base[0])));
  108.     if(number_compare(base[3],symbol_value(VV[51]))<=0){
  109.     goto T52;}
  110. T53:;
  111.     if(!(type_of(car(base[0]))==t_character)){
  112.     goto T51;}
  113. T52:;
  114.     if(endp(cdr(base[0]))){
  115.     goto T50;}
  116.     if(!(car(base[1])==VV[55])){
  117.     goto T51;}
  118.     {object x= structure_ref(caaddr(base[1]),VV[55],1),V1= VV[56];
  119.     while(!endp(V1))
  120.     if(eql(x,V1->c.c_car)){
  121.     goto T62;
  122.     }else V1=V1->c.c_cdr;
  123.     goto T51;}
  124. T62:;
  125. T50:;
  126.     {object V2= car(base[0]);
  127.     if(!(endp(cdr(base[0])))){
  128.     goto T65;}
  129.     base[3]= Cnil;
  130.     goto T63;
  131. T65:;
  132.     base[3]= structure_ref(caaddr(base[1]),VV[55],4);
  133. T63:;
  134.     base[4]= list(5,VV[0],base[2],V2,base[3],base[1]);
  135.     vs_top=(vs_base=base+4)+1;
  136.     return;}
  137. T51:;
  138.     base[4]= car(base[0]);
  139.     base[5]= base[2];
  140.     base[3]= simple_symlispcall_no_event(VV[136],base+4,2);
  141.     base[4]= list(2,base[3],base[1]);
  142.     base[5]= list(4,VV[57],base[2],VV[0],base[4]);
  143.     vs_top=(vs_base=base+5)+1;
  144.     return;
  145. }
  146. /*    function definition for C2PRINC    */
  147.  
  148. static L28()
  149. {    register object *base=vs_base;
  150.     register object *sup=base+VM4;
  151.     vs_reserve(VM4);
  152.     check_arg(3);
  153.     vs_top=sup;
  154. TTL:;
  155.     if(!(symbol_value(VV[58])==VV[59])){
  156.     goto T71;}
  157.     if(!(type_of(base[0])==t_character)){
  158.     goto T75;}
  159.     princ_str("\n    princ_char(",VV[60]);
  160.     base[3]=symbol_function(VV[137]);
  161.     base[5]= base[0];
  162.     vs_top=(vs_base=base+5)+1;
  163.     Lchar_code();
  164.     vs_top=sup;
  165.     base[4]= vs_base[0];
  166.     (void)simple_lispcall_no_event(base+3,1);
  167.     if((base[1])!=Cnil){
  168.     goto T84;}
  169.     princ_str(",Cnil",VV[60]);
  170.     goto T82;
  171. T84:;
  172.     princ_str(",VV[",VV[60]);
  173.     base[3]= base[1];
  174.     (void)simple_symlispcall_no_event(VV[137],base+3,1);
  175.     princ_char(93,VV[60]);
  176. T82:;
  177.     princ_str(");",VV[60]);
  178.     goto T73;
  179. T75:;
  180.     if(!((length(base[0]))==(1))){
  181.     goto T93;}
  182.     princ_str("\n    princ_char(",VV[60]);
  183.     base[3]=symbol_function(VV[137]);
  184.     base[5]= aref1(base[0],0);
  185.     vs_top=(vs_base=base+5)+1;
  186.     Lchar_code();
  187.     vs_top=sup;
  188.     base[4]= vs_base[0];
  189.     (void)simple_lispcall_no_event(base+3,1);
  190.     if((base[1])!=Cnil){
  191.     goto T102;}
  192.     princ_str(",Cnil",VV[60]);
  193.     goto T100;
  194. T102:;
  195.     princ_str(",VV[",VV[60]);
  196.     base[3]= base[1];
  197.     (void)simple_symlispcall_no_event(VV[137],base+3,1);
  198.     princ_char(93,VV[60]);
  199. T100:;
  200.     princ_str(");",VV[60]);
  201.     goto T73;
  202. T93:;
  203.     princ_str("\n    princ_str(\"",VV[60]);
  204.     {int V3;
  205.     int V4;
  206.     V3= length(base[0]);
  207.     V4= 0;
  208. T116:;
  209.     if(!((V4)>=(V3))){
  210.     goto T117;}
  211.     goto T112;
  212. T117:;
  213.     base[3]= elt(base[0],V4);
  214.     base[4]= base[3];
  215.     base[5]= VV[61];
  216.     vs_top=(vs_base=base+4)+2;
  217.     Lchar_eq();
  218.     vs_top=sup;
  219.     if((vs_base[0])==Cnil){
  220.     goto T124;}
  221.     princ_str("\\\\",VV[60]);
  222.     goto T121;
  223. T124:;
  224.     base[4]= base[3];
  225.     base[5]= VV[62];
  226.     vs_top=(vs_base=base+4)+2;
  227.     Lchar_eq();
  228.     vs_top=sup;
  229.     if((vs_base[0])==Cnil){
  230.     goto T130;}
  231.     princ_str("\\\"",VV[60]);
  232.     goto T121;
  233. T130:;
  234.     base[4]= base[3];
  235.     base[5]= VV[63];
  236.     vs_top=(vs_base=base+4)+2;
  237.     Lchar_eq();
  238.     vs_top=sup;
  239.     if((vs_base[0])==Cnil){
  240.     goto T136;}
  241.     princ_str("\\n",VV[60]);
  242.     goto T121;
  243. T136:;
  244.     base[4]= base[3];
  245.     (void)simple_symlispcall_no_event(VV[137],base+4,1);
  246. T121:;
  247.     V4= (V4)+1;
  248.     goto T116;}
  249. T112:;
  250.     princ_str("\",",VV[60]);
  251.     if((base[1])!=Cnil){
  252.     goto T150;}
  253.     princ_str("Cnil",VV[60]);
  254.     goto T148;
  255. T150:;
  256.     princ_str("VV[",VV[60]);
  257.     base[3]= base[1];
  258.     (void)simple_symlispcall_no_event(VV[137],base+3,1);
  259.     princ_char(93,VV[60]);
  260. T148:;
  261.     princ_str(");",VV[60]);
  262. T73:;
  263.     base[3]= Cnil;
  264.     symlispcall_no_event(VV[138],base+3,1);
  265.     return;
  266. T71:;
  267.     if(!(eql(base[0],VV[63]))){
  268.     goto T160;}
  269.     base[3]= VV[5];
  270.     base[4]= make_cons(base[2],Cnil);
  271.     base[5]= Cnil;
  272.     base[6]= Ct;
  273.     symlispcall_no_event(VV[139],base+3,4);
  274.     return;
  275. T160:;
  276.     base[3]= VV[0];
  277.     base[6]=symbol_function(VV[132]);
  278.     base[7]= VV[65];
  279.     if(!(type_of(base[0])==t_character)){
  280.     goto T172;}
  281.     base[8]= VV[66];
  282.     goto T170;
  283. T172:;
  284.     base[8]= VV[67];
  285. T170:;
  286.     base[5]= simple_lispcall_no_event(base+6,2);
  287.     base[7]= base[0];
  288.     base[6]= simple_symlispcall_no_event(VV[140],base+7,1);
  289.     base[7]= list(2,VV[68],base[6]);
  290.     base[8]= list(3,VV[64],base[5],base[7]);
  291.     base[4]= list(2,base[8],base[2]);
  292.     base[5]= Cnil;
  293.     base[6]= Ct;
  294.     symlispcall_no_event(VV[139],base+3,4);
  295.     return;
  296. }
  297. /*    function definition for C1TERPRI    */
  298.  
  299. static L29()
  300. {    register object *base=vs_base;
  301.     register object *sup=base+VM5;
  302.     vs_reserve(VM5);
  303.     check_arg(1);
  304.     vs_top=sup;
  305. TTL:;
  306.     base[1]= Cnil;
  307.     base[2]= simple_symlispcall_no_event(VV[132],base+3,0);
  308.     if(endp(base[0])){
  309.     goto T179;}
  310.     if(endp(cdr(base[0]))){
  311.     goto T179;}
  312.     base[3]= VV[5];
  313.     base[4]= VV[52];
  314.     base[5]= make_fixnum(length(base[0]));
  315.     (void)simple_symlispcall_no_event(VV[134],base+3,3);
  316. T179:;
  317.     if(!(endp(base[0]))){
  318.     goto T190;}
  319.     base[1]= simple_symlispcall_no_event(VV[135],base+3,0);
  320.     goto T188;
  321. T190:;
  322.     base[3]= car(base[0]);
  323.     base[4]= base[2];
  324.     base[1]= simple_symlispcall_no_event(VV[136],base+3,2);
  325. T188:;
  326.     if(endp(base[0])){
  327.     goto T194;}
  328.     if(!(car(base[1])==VV[55])){
  329.     goto T195;}
  330.     {object x= structure_ref(caaddr(base[1]),VV[55],1),V5= VV[69];
  331.     while(!endp(V5))
  332.     if(eql(x,V5->c.c_car)){
  333.     goto T200;
  334.     }else V5=V5->c.c_cdr;
  335.     goto T195;}
  336. T200:;
  337. T194:;
  338.     if(!(endp(base[0]))){
  339.     goto T203;}
  340.     base[3]= Cnil;
  341.     goto T201;
  342. T203:;
  343.     base[3]= structure_ref(caaddr(base[1]),VV[55],4);
  344. T201:;
  345.     base[4]= list(5,VV[0],base[2],VV[63],base[3],base[1]);
  346.     vs_top=(vs_base=base+4)+1;
  347.     return;
  348. T195:;
  349.     base[3]= make_cons(base[1],Cnil);
  350.     base[4]= list(4,VV[57],base[2],VV[5],base[3]);
  351.     vs_top=(vs_base=base+4)+1;
  352.     return;
  353. }
  354. /*    function definition for C1APPLY    */
  355.  
  356. static L30()
  357. {    register object *base=vs_base;
  358.     register object *sup=base+VM6;
  359.     vs_reserve(VM6);
  360.     check_arg(1);
  361.     vs_top=sup;
  362. TTL:;
  363.     base[1]= Cnil;
  364.     if(endp(base[0])){
  365.     goto T206;}
  366.     if(!(endp(cdr(base[0])))){
  367.     goto T205;}
  368. T206:;
  369.     base[2]= VV[7];
  370.     base[3]= VV[54];
  371.     base[4]= make_fixnum(length(base[0]));
  372.     (void)simple_symlispcall_no_event(VV[133],base+2,3);
  373. T205:;
  374.     base[3]= car(base[0]);
  375.     base[2]= simple_symlispcall_no_event(VV[141],base+3,1);
  376.     base[3]= cadr(base[2]);
  377.     base[1]= simple_symlispcall_no_event(VV[142],base+3,1);
  378.     base[3]= cdr(base[0]);
  379.     base[4]= base[1];
  380.     base[0]= simple_symlispcall_no_event(VV[143],base+3,2);
  381.     if(!(car(base[2])==VV[70])){
  382.     goto T223;}
  383.     {object V6;
  384.     object V7;
  385.     V6= caddr(base[2]);
  386.     V7= caddr((V6));
  387.     if((cadr((V7)))!=Cnil){
  388.     goto T228;}
  389.     if((cadddr((V7)))!=Cnil){
  390.     goto T228;}
  391.     base[3]= base[1];
  392.     base[4]= car((V7));
  393.     base[5]= caddr((V7));
  394.     base[6]= car(cddddr((V6)));
  395.     base[7]= base[0];
  396.     vs_top=(vs_base=base+3)+5;
  397.     L32();
  398.     return;
  399. T228:;
  400.     base[3]= list(4,VV[7],base[1],base[2],base[0]);
  401.     vs_top=(vs_base=base+3)+1;
  402.     return;}
  403. T223:;
  404.     base[3]= list(4,VV[7],base[1],base[2],base[0]);
  405.     vs_top=(vs_base=base+3)+1;
  406.     return;
  407. }
  408. /*    function definition for C2APPLY    */
  409.  
  410. static L31()
  411. {    register object *base=vs_base;
  412.     register object *sup=base+VM7;
  413.     vs_reserve(VM7);
  414.     bds_check;
  415.     check_arg(2);
  416.     vs_top=sup;
  417. TTL:;
  418.     bds_bind(VV[71],symbol_value(VV[71]));
  419.     base[3]= Cnil;
  420.     base[4]= base[0];
  421.     base[3]= simple_symlispcall_no_event(VV[144],base+4,1);
  422.     base[4]= (VV[71]->s.s_dbind);
  423.     base[5]= (VV[71]->s.s_dbind);
  424.     setq(VV[73],number_plus(symbol_value(VV[73]),VV[52]));
  425.     base[6]= list(2,VV[72],symbol_value(VV[73]));
  426.     bds_bind(VV[71],base[4]);
  427.     {object V8;
  428.     V8= base[1];
  429. T248:;
  430.     if(!(endp(cdr((V8))))){
  431.     goto T249;}
  432.     princ_str("\n    {object ",VV[60]);
  433.     base[7]= base[6];
  434.     (void)simple_symlispcall_no_event(VV[137],base+7,1);
  435.     princ_char(59,VV[60]);
  436.     bds_bind(VV[58],base[6]);
  437.     base[8]= car((V8));
  438.     base[9]= simple_symlispcall_no_event(VV[145],base+8,1);
  439.     bds_unwind1;
  440.     goto T245;
  441. T249:;
  442.     base[8]= simple_symlispcall_no_event(VV[146],base+9,0);
  443.     base[7]= list(2,VV[74],base[8]);
  444.     bds_bind(VV[58],base[7]);
  445.     base[8]= car((V8));
  446.     base[9]= simple_symlispcall_no_event(VV[145],base+8,1);
  447.     bds_unwind1;
  448.     V8= cdr((V8));
  449.     goto T248;}
  450. T245:;
  451.     princ_str("\n     vs_top=base+",VV[60]);
  452.     base[7]= (VV[71]->s.s_dbind);
  453.     (void)simple_symlispcall_no_event(VV[137],base+7,1);
  454.     princ_char(59,VV[60]);
  455.     setq(VV[75],Ct);
  456.     if((symbol_value(VV[76]))==Cnil){
  457.     goto T275;}
  458.     princ_str("\n     while(!endp(",VV[60]);
  459.     base[7]= base[6];
  460.     (void)simple_symlispcall_no_event(VV[137],base+7,1);
  461.     princ_str("))",VV[60]);
  462.     princ_str("\n     {vs_push(car(",VV[60]);
  463.     base[7]= base[6];
  464.     (void)simple_symlispcall_no_event(VV[137],base+7,1);
  465.     princ_str("));",VV[60]);
  466.     base[7]= base[6];
  467.     (void)simple_symlispcall_no_event(VV[137],base+7,1);
  468.     princ_str("=cdr(",VV[60]);
  469.     base[7]= base[6];
  470.     (void)simple_symlispcall_no_event(VV[137],base+7,1);
  471.     princ_str(");}",VV[60]);
  472.     goto T273;
  473. T275:;
  474.     princ_str("\n     while(",VV[60]);
  475.     base[7]= base[6];
  476.     (void)simple_symlispcall_no_event(VV[137],base+7,1);
  477.     princ_str("!=Cnil)",VV[60]);
  478.     princ_str("\n     {vs_push((",VV[60]);
  479.     base[7]= base[6];
  480.     (void)simple_symlispcall_no_event(VV[137],base+7,1);
  481.     princ_str(")->c.c_car);",VV[60]);
  482.     base[7]= base[6];
  483.     (void)simple_symlispcall_no_event(VV[137],base+7,1);
  484.     princ_str("=(",VV[60]);
  485.     base[7]= base[6];
  486.     (void)simple_symlispcall_no_event(VV[137],base+7,1);
  487.     princ_str(")->c.c_cdr;}",VV[60]);
  488. T273:;
  489.     princ_str("\n    vs_base=base+",VV[60]);
  490.     base[7]= base[5];
  491.     (void)simple_symlispcall_no_event(VV[137],base+7,1);
  492.     princ_str(";}",VV[60]);
  493.     setq(VV[75],Ct);
  494.     bds_unwind1;
  495.     base[4]= base[0];
  496.     base[5]= VV[77];
  497.     base[6]= base[3];
  498.     symlispcall_no_event(VV[147],base+4,3);
  499.     bds_unwind1;
  500.     return;
  501. }
  502. /*    function definition for C1APPLY-OPTIMIZE    */
  503.  
  504. static L32()
  505. {    register object *base=vs_base;
  506.     register object *sup=base+VM8;
  507.     vs_reserve(VM8);
  508.     check_arg(5);
  509.     vs_top=sup;
  510. TTL:;
  511.     base[5]= Cnil;
  512.     base[6]= Cnil;
  513. T320:;
  514.     if(endp(cdr(base[4]))){
  515.     goto T322;}
  516.     if(!(endp(base[1]))){
  517.     goto T321;}
  518. T322:;
  519.     goto T318;
  520. T321:;
  521.     base[8]= car(base[1]);
  522.     base[1]= cdr(base[1]);
  523.     base[7]= base[8];
  524.     base[5]= make_cons(base[7],base[5]);
  525.     base[8]= car(base[4]);
  526.     base[4]= cdr(base[4]);
  527.     base[7]= base[8];
  528.     base[6]= make_cons(base[7],base[6]);
  529.     goto T320;
  530. T318:;
  531.     if((cdr(base[4]))==Cnil){
  532.     goto T342;}
  533.     if((base[2])!=Cnil){
  534.     goto T344;}
  535.     base[7]= VV[78];
  536.     (void)simple_symlispcall_no_event(VV[148],base+7,1);
  537. T344:;
  538.     base[5]= make_cons(base[2],base[5]);
  539.     base[7]= list(4,VV[57],base[0],VV[36],base[4]);
  540.     base[6]= make_cons(base[7],base[6]);
  541.     base[7]= reverse(base[5]);
  542.     base[8]= reverse(base[6]);
  543.     base[9]= list(5,VV[79],base[0],base[7],base[8],base[3]);
  544.     vs_top=(vs_base=base+9)+1;
  545.     return;
  546. T342:;
  547.     if((base[1])==Cnil){
  548.     goto T353;}
  549.     base[8]= VV[80];
  550.     base[9]= VV[81];
  551.     base[10]= VV[82];
  552.     base[11]= Ct;
  553.     base[7]= simple_symlispcall_no_event(VV[149],base+8,4);
  554.     base[5]= make_cons(base[7],base[5]);
  555.     base[6]= make_cons(car(base[4]),base[6]);
  556.     base[8]= reverse(base[5]);
  557.     base[9]= reverse(base[6]);
  558.     base[10]= list(6,VV[10],cadr(base[3]),base[7],base[1],base[2],base[3]);
  559.     base[11]= list(5,VV[79],base[0],base[8],base[9],base[10]);
  560.     vs_top=(vs_base=base+11)+1;
  561.     return;
  562. T353:;
  563.     if((base[2])==Cnil){
  564.     goto T365;}
  565.     base[5]= make_cons(base[2],base[5]);
  566.     base[6]= make_cons(car(base[4]),base[6]);
  567.     base[7]= reverse(base[5]);
  568.     base[8]= reverse(base[6]);
  569.     base[9]= list(5,VV[79],base[0],base[7],base[8],base[3]);
  570.     vs_top=(vs_base=base+9)+1;
  571.     return;
  572. T365:;
  573.     base[8]= VV[80];
  574.     base[9]= VV[81];
  575.     base[10]= VV[82];
  576.     base[11]= Ct;
  577.     base[7]= simple_symlispcall_no_event(VV[149],base+8,4);
  578.     base[5]= make_cons(base[7],base[5]);
  579.     base[6]= make_cons(car(base[4]),base[6]);
  580.     base[8]= reverse(base[5]);
  581.     base[9]= reverse(base[6]);
  582.     base[10]= list(6,VV[10],cadr(base[3]),base[7],base[1],base[2],base[3]);
  583.     base[11]= list(5,VV[79],base[0],base[8],base[9],base[10]);
  584.     vs_top=(vs_base=base+11)+1;
  585.     return;
  586. }
  587. /*    function definition for C2APPLY-OPTIMIZE    */
  588.  
  589. static L33()
  590. {    register object *base=vs_base;
  591.     register object *sup=base+VM9;
  592.     vs_reserve(VM9);
  593.     bds_check;
  594.     check_arg(4);
  595.     vs_top=sup;
  596. TTL:;
  597.     bds_bind(VV[83],symbol_value(VV[83]));
  598.     bds_bind(VV[71],symbol_value(VV[71]));
  599.     bds_bind(VV[84],symbol_value(VV[84]));
  600.     bds_bind(VV[85],symbol_value(VV[85]));
  601.     if((symbol_value(VV[76]))!=Cnil){
  602.     goto T381;}
  603.     if((symbol_value(VV[86]))==Cnil){
  604.     goto T380;}
  605. T381:;
  606.     princ_str("\n    ",VV[60]);
  607.     base[8]=symbol_function(VV[137]);
  608.     if((base[2])==Cnil){
  609.     goto T390;}
  610.     base[9]= VV[87];
  611.     goto T388;
  612. T390:;
  613.     base[9]= VV[88];
  614. T388:;
  615.     (void)simple_lispcall_no_event(base+8,1);
  616.     princ_char(40,VV[60]);
  617.     base[8]= make_fixnum(length(base[1]));
  618.     (void)simple_symlispcall_no_event(VV[137],base+8,1);
  619.     princ_char(44,VV[60]);
  620.     base[8]= base[0];
  621.     base[9]= Cnil;
  622.     (void)simple_symlispcall_no_event(VV[150],base+8,2);
  623.     princ_str(");",VV[60]);
  624. T380:;
  625.     {object V9;
  626.     object V10;
  627.     V9= base[1];
  628.     V10= car((V9));
  629. T404:;
  630.     if(!(endp((V9)))){
  631.     goto T405;}
  632.     goto T400;
  633. T405:;
  634.     base[8]= simple_symlispcall_no_event(VV[146],base+9,0);
  635.     structure_set((V10),VV[55],2,base[8]);
  636.     V9= cdr((V9));
  637.     V10= car((V9));
  638.     goto T404;}
  639. T400:;
  640.     if((base[2])==Cnil){
  641.     goto T416;}
  642.     base[8]= simple_symlispcall_no_event(VV[146],base+9,0);
  643.     structure_set(base[2],VV[55],2,base[8]);
  644. T416:;
  645.     {int V11;
  646.     object V12;
  647.     V11= 0;
  648.     V12= base[1];
  649. T424:;
  650.     if(!(endp((V12)))){
  651.     goto T425;}
  652.     if((base[2])==Cnil){
  653.     goto T420;}
  654.     princ_str("\n    ",VV[60]);
  655.     base[8]= structure_ref(base[2],VV[55],2);
  656.     (void)simple_symlispcall_no_event(VV[151],base+8,1);
  657.     princ_str("= ",VV[60]);
  658.     {int V13;
  659.     int V14;
  660.     V13= V11;
  661.     V14= 0;
  662. T439:;
  663.     if(!((V14)>=(V13))){
  664.     goto T440;}
  665.     goto T435;
  666. T440:;
  667.     princ_char(40,VV[60]);
  668.     V14= (V14)+1;
  669.     goto T439;}
  670. T435:;
  671.     base[8]= base[0];
  672.     base[9]= Cnil;
  673.     (void)simple_symlispcall_no_event(VV[150],base+8,2);
  674.     {int V15;
  675.     int V16;
  676.     V15= V11;
  677.     V16= 0;
  678. T456:;
  679.     if(!((V16)>=(V15))){
  680.     goto T457;}
  681.     goto T452;
  682. T457:;
  683.     princ_str("\n    )->c.c_cdr",VV[60]);
  684.     V16= (V16)+1;
  685.     goto T456;}
  686. T452:;
  687.     princ_char(59,VV[60]);
  688.     goto T420;
  689. T425:;
  690.     princ_str("\n    ",VV[60]);
  691.     base[8]= structure_ref(car((V12)),VV[55],2);
  692.     (void)simple_symlispcall_no_event(VV[151],base+8,1);
  693.     princ_str("=(",VV[60]);
  694.     {int V17;
  695.     int V18;
  696.     V17= V11;
  697.     V18= 0;
  698. T477:;
  699.     if(!((V18)>=(V17))){
  700.     goto T478;}
  701.     goto T473;
  702. T478:;
  703.     princ_char(40,VV[60]);
  704.     V18= (V18)+1;
  705.     goto T477;}
  706. T473:;
  707.     base[8]= base[0];
  708.     base[9]= Cnil;
  709.     (void)simple_symlispcall_no_event(VV[150],base+8,2);
  710.     {int V19;
  711.     int V20;
  712.     V19= V11;
  713.     V20= 0;
  714. T494:;
  715.     if(!((V20)>=(V19))){
  716.     goto T495;}
  717.     goto T490;
  718. T495:;
  719.     princ_str("\n    )->c.c_cdr",VV[60]);
  720.     V20= (V20)+1;
  721.     goto T494;}
  722. T490:;
  723.     princ_str(")->c.c_car;",VV[60]);
  724.     V11= (V11)+1;
  725.     V12= cdr((V12));
  726.     goto T424;}
  727. T420:;
  728.     {object V21;
  729.     object V22;
  730.     V21= base[1];
  731.     V22= car((V21));
  732. T514:;
  733.     if(!(endp((V21)))){
  734.     goto T515;}
  735.     goto T510;
  736. T515:;
  737.     base[8]= (V22);
  738.     (void)simple_symlispcall_no_event(VV[152],base+8,1);
  739.     V21= cdr((V21));
  740.     V22= car((V21));
  741.     goto T514;}
  742. T510:;
  743.     if((base[2])==Cnil){
  744.     goto T526;}
  745.     base[8]= base[2];
  746.     (void)simple_symlispcall_no_event(VV[152],base+8,1);
  747. T526:;
  748.     base[8]= base[3];
  749.     symlispcall_no_event(VV[153],base+8,1);
  750.     bds_unwind1;
  751.     bds_unwind1;
  752.     bds_unwind1;
  753.     bds_unwind1;
  754.     return;
  755. }
  756. /*    function definition for C1FUNCALL    */
  757.  
  758. static L34()
  759. {    register object *base=vs_base;
  760.     register object *sup=base+VM10;
  761.     vs_reserve(VM10);
  762.     check_arg(1);
  763.     vs_top=sup;
  764. TTL:;
  765.     base[1]= Cnil;
  766.     base[2]= simple_symlispcall_no_event(VV[132],base+3,0);
  767.     if(!(endp(base[0]))){
  768.     goto T532;}
  769.     base[3]= VV[12];
  770.     base[4]= VV[52];
  771.     base[5]= VV[53];
  772.     (void)simple_symlispcall_no_event(VV[133],base+3,3);
  773. T532:;
  774.     base[3]= car(base[0]);
  775.     base[1]= simple_symlispcall_no_event(VV[141],base+3,1);
  776.     base[3]= base[2];
  777.     base[4]= cadr(base[1]);
  778.     (void)simple_symlispcall_no_event(VV[154],base+3,2);
  779.     base[4]= cdr(base[0]);
  780.     base[5]= base[2];
  781.     base[3]= simple_symlispcall_no_event(VV[143],base+4,2);
  782.     base[4]= list(4,VV[12],base[2],base[1],base[3]);
  783.     vs_top=(vs_base=base+4)+1;
  784.     return;
  785. }
  786. /*    function definition for C1RPLACA    */
  787.  
  788. static L35()
  789. {    register object *base=vs_base;
  790.     register object *sup=base+VM11;
  791.     vs_reserve(VM11);
  792.     check_arg(1);
  793.     vs_top=sup;
  794. TTL:;
  795.     base[1]= simple_symlispcall_no_event(VV[132],base+2,0);
  796.     if(endp(base[0])){
  797.     goto T549;}
  798.     if(!(endp(cdr(base[0])))){
  799.     goto T548;}
  800. T549:;
  801.     base[2]= VV[14];
  802.     base[3]= VV[54];
  803.     base[4]= make_fixnum(length(base[0]));
  804.     (void)simple_symlispcall_no_event(VV[133],base+2,3);
  805. T548:;
  806.     if(endp(cddr(base[0]))){
  807.     goto T556;}
  808.     base[2]= VV[14];
  809.     base[3]= VV[54];
  810.     base[4]= make_fixnum(length(base[0]));
  811.     (void)simple_symlispcall_no_event(VV[134],base+2,3);
  812. T556:;
  813.     base[2]= base[0];
  814.     base[3]= base[1];
  815.     base[0]= simple_symlispcall_no_event(VV[143],base+2,2);
  816.     base[2]= list(3,VV[14],base[1],base[0]);
  817.     vs_top=(vs_base=base+2)+1;
  818.     return;
  819. }
  820. /*    function definition for C2RPLACA    */
  821.  
  822. static L36()
  823. {    register object *base=vs_base;
  824.     register object *sup=base+VM12;
  825.     vs_reserve(VM12);
  826.     bds_check;
  827.     check_arg(1);
  828.     vs_top=sup;
  829. TTL:;
  830.     bds_bind(VV[71],symbol_value(VV[71]));
  831.     bds_bind(VV[89],VV[53]);
  832.     base[3]= base[0];
  833.     base[4]= VV[90];
  834.     base[0]= simple_symlispcall_no_event(VV[155],base+3,2);
  835.     if((symbol_value(VV[76]))==Cnil){
  836.     goto T570;}
  837.     princ_str("\n    if(type_of(",VV[60]);
  838.     base[3]= car(base[0]);
  839.     (void)simple_symlispcall_no_event(VV[137],base+3,1);
  840.     princ_str(")!=t_cons)",VV[60]);
  841.     princ_str("FEwrong_type_argument(Scons,",VV[60]);
  842.     base[3]= car(base[0]);
  843.     (void)simple_symlispcall_no_event(VV[137],base+3,1);
  844.     princ_str(");",VV[60]);
  845. T570:;
  846.     princ_str("\n    (",VV[60]);
  847.     base[3]= car(base[0]);
  848.     (void)simple_symlispcall_no_event(VV[137],base+3,1);
  849.     princ_str(")->c.c_car = ",VV[60]);
  850.     base[3]= cadr(base[0]);
  851.     (void)simple_symlispcall_no_event(VV[137],base+3,1);
  852.     princ_char(59,VV[60]);
  853.     base[3]= car(base[0]);
  854.     (void)simple_symlispcall_no_event(VV[138],base+3,1);
  855.     symlispcall_no_event(VV[156],base+3,0);
  856.     bds_unwind1;
  857.     bds_unwind1;
  858.     return;
  859. }
  860. /*    function definition for C1RPLACD    */
  861.  
  862. static L37()
  863. {    register object *base=vs_base;
  864.     register object *sup=base+VM13;
  865.     vs_reserve(VM13);
  866.     check_arg(1);
  867.     vs_top=sup;
  868. TTL:;
  869.     base[1]= simple_symlispcall_no_event(VV[132],base+2,0);
  870.     if(endp(base[0])){
  871.     goto T593;}
  872.     if(!(endp(cdr(base[0])))){
  873.     goto T592;}
  874. T593:;
  875.     base[2]= VV[17];
  876.     base[3]= VV[54];
  877.     base[4]= make_fixnum(length(base[0]));
  878.     (void)simple_symlispcall_no_event(VV[133],base+2,3);
  879. T592:;
  880.     if(endp(cddr(base[0]))){
  881.     goto T600;}
  882.     base[2]= VV[17];
  883.     base[3]= VV[54];
  884.     base[4]= make_fixnum(length(base[0]));
  885.     (void)simple_symlispcall_no_event(VV[134],base+2,3);
  886. T600:;
  887.     base[2]= base[0];
  888.     base[3]= base[1];
  889.     base[0]= simple_symlispcall_no_event(VV[143],base+2,2);
  890.     base[2]= list(3,VV[17],base[1],base[0]);
  891.     vs_top=(vs_base=base+2)+1;
  892.     return;
  893. }
  894. /*    function definition for C2RPLACD    */
  895.  
  896. static L38()
  897. {    register object *base=vs_base;
  898.     register object *sup=base+VM14;
  899.     vs_reserve(VM14);
  900.     bds_check;
  901.     check_arg(1);
  902.     vs_top=sup;
  903. TTL:;
  904.     bds_bind(VV[71],symbol_value(VV[71]));
  905.     bds_bind(VV[89],VV[53]);
  906.     base[3]= base[0];
  907.     base[4]= VV[91];
  908.     base[0]= simple_symlispcall_no_event(VV[155],base+3,2);
  909.     if((symbol_value(VV[76]))==Cnil){
  910.     goto T614;}
  911.     princ_str("\n    if(type_of(",VV[60]);
  912.     base[3]= car(base[0]);
  913.     (void)simple_symlispcall_no_event(VV[137],base+3,1);
  914.     princ_str(")!=t_cons)",VV[60]);
  915.     princ_str("FEwrong_type_argument(Scons,",VV[60]);
  916.     base[3]= car(base[0]);
  917.     (void)simple_symlispcall_no_event(VV[137],base+3,1);
  918.     princ_str(");",VV[60]);
  919. T614:;
  920.     princ_str("\n    (",VV[60]);
  921.     base[3]= car(base[0]);
  922.     (void)simple_symlispcall_no_event(VV[137],base+3,1);
  923.     princ_str(")->c.c_cdr = ",VV[60]);
  924.     base[3]= cadr(base[0]);
  925.     (void)simple_symlispcall_no_event(VV[137],base+3,1);
  926.     princ_char(59,VV[60]);
  927.     base[3]= car(base[0]);
  928.     (void)simple_symlispcall_no_event(VV[138],base+3,1);
  929.     symlispcall_no_event(VV[156],base+3,0);
  930.     bds_unwind1;
  931.     bds_unwind1;
  932.     return;
  933. }
  934. /*    function definition for C1MEMQ    */
  935.  
  936. static L39()
  937. {    register object *base=vs_base;
  938.     register object *sup=base+VM15;
  939.     vs_reserve(VM15);
  940.     check_arg(1);
  941.     vs_top=sup;
  942. TTL:;
  943.     base[1]= simple_symlispcall_no_event(VV[132],base+2,0);
  944.     if(endp(base[0])){
  945.     goto T637;}
  946.     if(!(endp(cdr(base[0])))){
  947.     goto T636;}
  948. T637:;
  949.     base[2]= VV[20];
  950.     base[3]= VV[54];
  951.     base[4]= make_fixnum(length(base[0]));
  952.     (void)simple_symlispcall_no_event(VV[133],base+2,3);
  953. T636:;
  954.     if(endp(cddr(base[0]))){
  955.     goto T644;}
  956.     base[2]= VV[20];
  957.     base[3]= VV[54];
  958.     base[4]= make_fixnum(length(base[0]));
  959.     (void)simple_symlispcall_no_event(VV[134],base+2,3);
  960. T644:;
  961.     base[3]= list(2,car(base[0]),cadr(base[0]));
  962.     base[4]= base[1];
  963.     base[2]= simple_symlispcall_no_event(VV[143],base+3,2);
  964.     base[3]= list(4,VV[24],base[1],VV[92],base[2]);
  965.     vs_top=(vs_base=base+3)+1;
  966.     return;
  967. }
  968. /*    function definition for C1MEMBER    */
  969.  
  970. static L40()
  971. {    register object *base=vs_base;
  972.     register object *sup=base+VM16;
  973.     vs_reserve(VM16);
  974.     check_arg(1);
  975.     vs_top=sup;
  976. TTL:;
  977.     base[1]= simple_symlispcall_no_event(VV[132],base+2,0);
  978.     if(endp(base[0])){
  979.     goto T655;}
  980.     if(!(endp(cdr(base[0])))){
  981.     goto T654;}
  982. T655:;
  983.     base[2]= VV[22];
  984.     base[3]= VV[54];
  985.     base[4]= make_fixnum(length(base[0]));
  986.     (void)simple_symlispcall_no_event(VV[133],base+2,3);
  987. T654:;
  988.     if(!(endp(cddr(base[0])))){
  989.     goto T663;}
  990.     base[3]= base[0];
  991.     base[4]= base[1];
  992.     base[2]= simple_symlispcall_no_event(VV[143],base+3,2);
  993.     base[3]= list(4,VV[24],base[1],VV[93],base[2]);
  994.     vs_top=(vs_base=base+3)+1;
  995.     return;
  996. T663:;
  997.     if(!(caddr(base[0])==VV[94])){
  998.     goto T669;}
  999.     if(equal(cdddr(base[0]),VV[95])){
  1000.     goto T668;}
  1001.     if(!(equal(cdddr(base[0]),VV[96]))){
  1002.     goto T669;}
  1003. T668:;
  1004.     base[3]= list(2,car(base[0]),cadr(base[0]));
  1005.     base[4]= base[1];
  1006.     base[2]= simple_symlispcall_no_event(VV[143],base+3,2);
  1007.     base[3]= list(4,VV[24],base[1],VV[92],base[2]);
  1008.     vs_top=(vs_base=base+3)+1;
  1009.     return;
  1010. T669:;
  1011.     base[3]= base[0];
  1012.     base[4]= base[1];
  1013.     base[2]= simple_symlispcall_no_event(VV[143],base+3,2);
  1014.     base[3]= list(4,VV[57],base[1],VV[22],base[2]);
  1015.     vs_top=(vs_base=base+3)+1;
  1016.     return;
  1017. }
  1018. /*    function definition for C2MEMBER!2    */
  1019.  
  1020. static L41()
  1021. {    register object *base=vs_base;
  1022.     register object *sup=base+VM17;
  1023.     vs_reserve(VM17);
  1024.     bds_check;
  1025.     check_arg(2);
  1026.     vs_top=sup;
  1027. TTL:;
  1028.     bds_bind(VV[71],symbol_value(VV[71]));
  1029.     bds_bind(VV[89],VV[53]);
  1030.     setq(VV[73],number_plus(symbol_value(VV[73]),VV[52]));
  1031.     base[4]= symbol_value(VV[73]);
  1032.     base[5]= base[1];
  1033.     base[6]= VV[97];
  1034.     base[1]= simple_symlispcall_no_event(VV[155],base+5,2);
  1035.     princ_str("\n    {object x= ",VV[60]);
  1036.     base[5]= car(base[1]);
  1037.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1038.     princ_str(",V",VV[60]);
  1039.     base[5]= base[4];
  1040.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1041.     princ_str("= ",VV[60]);
  1042.     base[5]= cadr(base[1]);
  1043.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1044.     princ_char(59,VV[60]);
  1045.     if((symbol_value(VV[76]))==Cnil){
  1046.     goto T700;}
  1047.     princ_str("\n    while(!endp(V",VV[60]);
  1048.     base[5]= base[4];
  1049.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1050.     princ_str("))",VV[60]);
  1051.     goto T698;
  1052. T700:;
  1053.     princ_str("\n    while(V",VV[60]);
  1054.     base[5]= base[4];
  1055.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1056.     princ_str("!=Cnil)",VV[60]);
  1057. T698:;
  1058.     if(!(base[0]==VV[92])){
  1059.     goto T712;}
  1060.     princ_str("\n    if(x==(V",VV[60]);
  1061.     base[5]= base[4];
  1062.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1063.     princ_str("->c.c_car)){",VV[60]);
  1064.     goto T710;
  1065. T712:;
  1066.     princ_str("\n    if(eql(x,V",VV[60]);
  1067.     base[5]= base[4];
  1068.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1069.     princ_str("->c.c_car)){",VV[60]);
  1070. T710:;
  1071.     if(!(type_of(symbol_value(VV[58]))==t_cons)){
  1072.     goto T724;}
  1073.     if(car(symbol_value(VV[58]))==VV[98]){
  1074.     goto T723;}
  1075.     if(!(car(symbol_value(VV[58]))==VV[99])){
  1076.     goto T724;}
  1077. T723:;
  1078.     base[5]= Ct;
  1079.     base[6]= VV[100];
  1080.     (void)simple_symlispcall_no_event(VV[138],base+5,2);
  1081.     goto T722;
  1082. T724:;
  1083.     base[5]= list(2,VV[72],base[4]);
  1084.     base[6]= VV[100];
  1085.     (void)simple_symlispcall_no_event(VV[138],base+5,2);
  1086. T722:;
  1087.     princ_str("\n    }else V",VV[60]);
  1088.     base[5]= base[4];
  1089.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1090.     princ_str("=V",VV[60]);
  1091.     base[5]= base[4];
  1092.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1093.     princ_str("->c.c_cdr;",VV[60]);
  1094.     base[5]= Cnil;
  1095.     (void)simple_symlispcall_no_event(VV[138],base+5,1);
  1096.     princ_char(125,VV[60]);
  1097.     symlispcall_no_event(VV[156],base+5,0);
  1098.     bds_unwind1;
  1099.     bds_unwind1;
  1100.     return;
  1101. }
  1102. /*    function definition for C1ASSOC    */
  1103.  
  1104. static L42()
  1105. {    register object *base=vs_base;
  1106.     register object *sup=base+VM18;
  1107.     vs_reserve(VM18);
  1108.     check_arg(1);
  1109.     vs_top=sup;
  1110. TTL:;
  1111.     base[1]= simple_symlispcall_no_event(VV[132],base+2,0);
  1112.     if(endp(base[0])){
  1113.     goto T748;}
  1114.     if(!(endp(cdr(base[0])))){
  1115.     goto T747;}
  1116. T748:;
  1117.     base[2]= VV[26];
  1118.     base[3]= VV[54];
  1119.     base[4]= make_fixnum(length(base[0]));
  1120.     (void)simple_symlispcall_no_event(VV[133],base+2,3);
  1121. T747:;
  1122.     if(!(endp(cddr(base[0])))){
  1123.     goto T756;}
  1124.     base[3]= base[0];
  1125.     base[4]= base[1];
  1126.     base[2]= simple_symlispcall_no_event(VV[143],base+3,2);
  1127.     base[3]= list(4,VV[28],base[1],VV[93],base[2]);
  1128.     vs_top=(vs_base=base+3)+1;
  1129.     return;
  1130. T756:;
  1131.     if(!(caddr(base[0])==VV[94])){
  1132.     goto T762;}
  1133.     if(equal(cdddr(base[0]),VV[101])){
  1134.     goto T761;}
  1135.     if(!(equal(cdddr(base[0]),VV[102]))){
  1136.     goto T762;}
  1137. T761:;
  1138.     base[3]= list(2,car(base[0]),cadr(base[0]));
  1139.     base[4]= base[1];
  1140.     base[2]= simple_symlispcall_no_event(VV[143],base+3,2);
  1141.     base[3]= list(4,VV[28],base[1],VV[92],base[2]);
  1142.     vs_top=(vs_base=base+3)+1;
  1143.     return;
  1144. T762:;
  1145.     base[3]= base[0];
  1146.     base[4]= base[1];
  1147.     base[2]= simple_symlispcall_no_event(VV[143],base+3,2);
  1148.     base[3]= list(4,VV[57],base[1],VV[26],base[2]);
  1149.     vs_top=(vs_base=base+3)+1;
  1150.     return;
  1151. }
  1152. /*    function definition for C2ASSOC!2    */
  1153.  
  1154. static L43()
  1155. {    register object *base=vs_base;
  1156.     register object *sup=base+VM19;
  1157.     vs_reserve(VM19);
  1158.     bds_check;
  1159.     check_arg(2);
  1160.     vs_top=sup;
  1161. TTL:;
  1162.     bds_bind(VV[71],symbol_value(VV[71]));
  1163.     bds_bind(VV[89],VV[53]);
  1164.     setq(VV[73],number_plus(symbol_value(VV[73]),VV[52]));
  1165.     base[4]= symbol_value(VV[73]);
  1166.     base[5]= base[1];
  1167.     base[6]= VV[103];
  1168.     base[1]= simple_symlispcall_no_event(VV[155],base+5,2);
  1169.     princ_str("\n    {object x= ",VV[60]);
  1170.     base[5]= car(base[1]);
  1171.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1172.     princ_str(",V",VV[60]);
  1173.     base[5]= base[4];
  1174.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1175.     princ_str("= ",VV[60]);
  1176.     base[5]= cadr(base[1]);
  1177.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1178.     princ_char(59,VV[60]);
  1179.     if((symbol_value(VV[76]))==Cnil){
  1180.     goto T793;}
  1181.     princ_str("\n    while(!endp(V",VV[60]);
  1182.     base[5]= base[4];
  1183.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1184.     princ_str("))",VV[60]);
  1185.     if(!(base[0]==VV[92])){
  1186.     goto T801;}
  1187.     princ_str("\n    if(x==car(V",VV[60]);
  1188.     base[5]= base[4];
  1189.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1190.     princ_str("->c.c_car)){",VV[60]);
  1191.     goto T791;
  1192. T801:;
  1193.     princ_str("\n    if(eql(x,car(V",VV[60]);
  1194.     base[5]= base[4];
  1195.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1196.     princ_str("->c.c_car))){",VV[60]);
  1197.     goto T791;
  1198. T793:;
  1199.     princ_str("\n    while(V",VV[60]);
  1200.     base[5]= base[4];
  1201.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1202.     princ_str("!=Cnil)",VV[60]);
  1203.     if(!(base[0]==VV[92])){
  1204.     goto T817;}
  1205.     princ_str("\n    if(x==(V",VV[60]);
  1206.     base[5]= base[4];
  1207.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1208.     princ_str("->c.c_car->c.c_car)){",VV[60]);
  1209.     goto T791;
  1210. T817:;
  1211.     princ_str("\n    if(eql(x,V",VV[60]);
  1212.     base[5]= base[4];
  1213.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1214.     princ_str("->c.c_car->c.c_car)){",VV[60]);
  1215. T791:;
  1216.     if(!(type_of(symbol_value(VV[58]))==t_cons)){
  1217.     goto T829;}
  1218.     if(car(symbol_value(VV[58]))==VV[98]){
  1219.     goto T828;}
  1220.     if(!(car(symbol_value(VV[58]))==VV[99])){
  1221.     goto T829;}
  1222. T828:;
  1223.     base[5]= Ct;
  1224.     base[6]= VV[100];
  1225.     (void)simple_symlispcall_no_event(VV[138],base+5,2);
  1226.     goto T827;
  1227. T829:;
  1228.     base[5]= list(2,VV[104],base[4]);
  1229.     base[6]= VV[100];
  1230.     (void)simple_symlispcall_no_event(VV[138],base+5,2);
  1231. T827:;
  1232.     princ_str("\n    }else V",VV[60]);
  1233.     base[5]= base[4];
  1234.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1235.     princ_str("=V",VV[60]);
  1236.     base[5]= base[4];
  1237.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1238.     princ_str("->c.c_cdr;",VV[60]);
  1239.     base[5]= Cnil;
  1240.     (void)simple_symlispcall_no_event(VV[138],base+5,1);
  1241.     princ_char(125,VV[60]);
  1242.     symlispcall_no_event(VV[156],base+5,0);
  1243.     bds_unwind1;
  1244.     bds_unwind1;
  1245.     return;
  1246. }
  1247. /*    function definition for C1GET    */
  1248.  
  1249. static L44()
  1250. {    register object *base=vs_base;
  1251.     register object *sup=base+VM20;
  1252.     vs_reserve(VM20);
  1253.     check_arg(1);
  1254.     vs_top=sup;
  1255. TTL:;
  1256.     base[1]= simple_symlispcall_no_event(VV[132],base+2,0);
  1257.     if(endp(base[0])){
  1258.     goto T853;}
  1259.     if(!(endp(cdr(base[0])))){
  1260.     goto T852;}
  1261. T853:;
  1262.     base[2]= VV[30];
  1263.     base[3]= VV[54];
  1264.     base[4]= make_fixnum(length(base[0]));
  1265.     (void)simple_symlispcall_no_event(VV[133],base+2,3);
  1266. T852:;
  1267.     if(endp(cddr(base[0]))){
  1268.     goto T860;}
  1269.     if(endp(cdddr(base[0]))){
  1270.     goto T860;}
  1271.     base[2]= VV[30];
  1272.     base[3]= VV[105];
  1273.     base[4]= make_fixnum(length(base[0]));
  1274.     (void)simple_symlispcall_no_event(VV[134],base+2,3);
  1275. T860:;
  1276.     base[3]= base[0];
  1277.     base[4]= base[1];
  1278.     base[2]= simple_symlispcall_no_event(VV[143],base+3,2);
  1279.     base[3]= list(3,VV[30],base[1],base[2]);
  1280.     vs_top=(vs_base=base+3)+1;
  1281.     return;
  1282. }
  1283. /*    function definition for C2GET    */
  1284.  
  1285. static L45()
  1286. {    register object *base=vs_base;
  1287.     register object *sup=base+VM21;
  1288.     vs_reserve(VM21);
  1289.     bds_check;
  1290.     check_arg(1);
  1291.     vs_top=sup;
  1292. TTL:;
  1293.     if((symbol_value(VV[76]))==Cnil){
  1294.     goto T872;}
  1295.     base[1]= VV[30];
  1296.     base[2]= base[0];
  1297.     base[3]= Cnil;
  1298.     base[4]= Ct;
  1299.     symlispcall_no_event(VV[139],base+1,4);
  1300.     return;
  1301. T872:;
  1302.     base[1]= symbol_value(VV[71]);
  1303.     setq(VV[73],number_plus(symbol_value(VV[73]),VV[52]));
  1304.     base[3]= symbol_value(VV[73]);
  1305.     bds_bind(VV[71],base[1]);
  1306.     bds_bind(VV[89],VV[53]);
  1307.     base[4]=symbol_function(VV[155]);
  1308.     base[5]= base[0];
  1309.     if((cddr(base[0]))==Cnil){
  1310.     goto T886;}
  1311.     base[6]= VV[106];
  1312.     goto T884;
  1313. T886:;
  1314.     base[6]= VV[107];
  1315. T884:;
  1316.     base[0]= simple_lispcall_no_event(base+4,2);
  1317.     princ_str("\n    {object V",VV[60]);
  1318.     base[4]= base[3];
  1319.     (void)simple_symlispcall_no_event(VV[137],base+4,1);
  1320.     princ_str(" =(",VV[60]);
  1321.     base[4]= car(base[0]);
  1322.     (void)simple_symlispcall_no_event(VV[137],base+4,1);
  1323.     princ_str(")->s.s_plist;",VV[60]);
  1324.     princ_str("\n     object ind= ",VV[60]);
  1325.     base[4]= cadr(base[0]);
  1326.     (void)simple_symlispcall_no_event(VV[137],base+4,1);
  1327.     princ_char(59,VV[60]);
  1328.     princ_str("\n    while(V",VV[60]);
  1329.     base[4]= base[3];
  1330.     (void)simple_symlispcall_no_event(VV[137],base+4,1);
  1331.     princ_str("!=Cnil){",VV[60]);
  1332.     princ_str("\n    if(V",VV[60]);
  1333.     base[4]= base[3];
  1334.     (void)simple_symlispcall_no_event(VV[137],base+4,1);
  1335.     princ_str("->c.c_car==ind){",VV[60]);
  1336.     base[4]= list(2,VV[108],base[3]);
  1337.     base[5]= VV[100];
  1338.     (void)simple_symlispcall_no_event(VV[138],base+4,2);
  1339.     princ_str("\n    }else V",VV[60]);
  1340.     base[4]= base[3];
  1341.     (void)simple_symlispcall_no_event(VV[137],base+4,1);
  1342.     princ_str("=V",VV[60]);
  1343.     base[4]= base[3];
  1344.     (void)simple_symlispcall_no_event(VV[137],base+4,1);
  1345.     princ_str("->c.c_cdr->c.c_cdr;}",VV[60]);
  1346.     base[4]=symbol_function(VV[138]);
  1347.     if((cddr(base[0]))==Cnil){
  1348.     goto T925;}
  1349.     base[5]= caddr(base[0]);
  1350.     goto T923;
  1351. T925:;
  1352.     base[5]= Cnil;
  1353. T923:;
  1354.     (void)simple_lispcall_no_event(base+4,1);
  1355.     princ_char(125,VV[60]);
  1356.     symlispcall_no_event(VV[156],base+4,0);
  1357.     bds_unwind1;
  1358.     bds_unwind1;
  1359.     return;
  1360. }
  1361. /*    function definition for C1LIST-CONDITION    */
  1362.  
  1363. static L46()
  1364. {    register object *base=vs_base;
  1365.     register object *sup=base+VM22;
  1366.     vs_reserve(VM22);
  1367.     check_arg(1);
  1368.     vs_top=sup;
  1369. TTL:;
  1370.     base[1]= (number_compare(symbol_value(VV[109]),VV[53])==0?Ct:Cnil);
  1371.     vs_top=(vs_base=base+1)+1;
  1372.     return;
  1373. }
  1374. /*    function definition for C1LIST    */
  1375.  
  1376. static L47()
  1377. {    register object *base=vs_base;
  1378.     register object *sup=base+VM23;
  1379.     vs_reserve(VM23);
  1380.     check_arg(1);
  1381.     vs_top=sup;
  1382. TTL:;
  1383.     base[1]= reverse(base[0]);
  1384.     base[2]= Cnil;
  1385. T931:;
  1386.     if(!(endp(base[1]))){
  1387.     goto T932;}
  1388.     base[3]= base[2];
  1389.     symlispcall_no_event(VV[157],base+3,1);
  1390.     return;
  1391. T932:;
  1392.     base[2]= list(3,VV[110],car(base[1]),base[2]);
  1393.     base[1]= cdr(base[1]);
  1394.     goto T931;
  1395. }
  1396. /*    function definition for C1LIST*    */
  1397.  
  1398. static L48()
  1399. {    register object *base=vs_base;
  1400.     register object *sup=base+VM24;
  1401.     vs_reserve(VM24);
  1402.     check_arg(1);
  1403.     vs_top=sup;
  1404. TTL:;
  1405.     if(!(endp(base[0]))){
  1406.     goto T942;}
  1407.     base[1]= VV[36];
  1408.     base[2]= VV[52];
  1409.     base[3]= VV[53];
  1410.     (void)simple_symlispcall_no_event(VV[133],base+1,3);
  1411. T942:;
  1412.     base[0]= reverse(base[0]);
  1413.     base[1]= cdr(base[0]);
  1414.     base[2]= car(base[0]);
  1415. T953:;
  1416.     if(!(endp(base[1]))){
  1417.     goto T954;}
  1418.     base[3]= base[2];
  1419.     symlispcall_no_event(VV[157],base+3,1);
  1420.     return;
  1421. T954:;
  1422.     base[2]= list(3,VV[110],car(base[1]),base[2]);
  1423.     base[1]= cdr(base[1]);
  1424.     goto T953;
  1425. }
  1426. /*    function definition for C1NTH-CONDITION    */
  1427.  
  1428. static L49()
  1429. {    register object *base=vs_base;
  1430.     register object *sup=base+VM25;
  1431.     vs_reserve(VM25);
  1432.     check_arg(1);
  1433.     vs_top=sup;
  1434. TTL:;
  1435.     if(((endp(base[0])?Ct:Cnil))==Cnil){
  1436.     goto T964;}
  1437.     base[1]= Cnil;
  1438.     vs_top=(vs_base=base+1)+1;
  1439.     return;
  1440. T964:;
  1441.     if(((endp(cdr(base[0]))?Ct:Cnil))==Cnil){
  1442.     goto T966;}
  1443.     base[1]= Cnil;
  1444.     vs_top=(vs_base=base+1)+1;
  1445.     return;
  1446. T966:;
  1447.     if(endp(cddr(base[0]))){
  1448.     goto T968;}
  1449.     base[1]= Cnil;
  1450.     vs_top=(vs_base=base+1)+1;
  1451.     return;
  1452. T968:;
  1453.     if(type_of(car(base[0]))==t_fixnum||
  1454. type_of(car(base[0]))==t_bignum||
  1455. type_of(car(base[0]))==t_ratio||
  1456. type_of(car(base[0]))==t_shortfloat||
  1457. type_of(car(base[0]))==t_longfloat||
  1458. type_of(car(base[0]))==t_complex){
  1459.     goto T970;}
  1460.     base[1]= Cnil;
  1461.     vs_top=(vs_base=base+1)+1;
  1462.     return;
  1463. T970:;
  1464.     base[1]= VV[53];
  1465.     base[2]= car(base[0]);
  1466.     base[3]= VV[111];
  1467.     vs_top=(vs_base=base+1)+3;
  1468.     Lmonotonically_nondecreasing();
  1469.     return;
  1470. }
  1471. /*    function definition for C1NTH    */
  1472.  
  1473. static L50()
  1474. {    register object *base=vs_base;
  1475.     register object *sup=base+VM26;
  1476.     vs_reserve(VM26);
  1477.     check_arg(1);
  1478.     vs_top=sup;
  1479. TTL:;
  1480.     base[1]=symbol_function(VV[157]);
  1481.     {object V23= car(base[0]);
  1482.     if(!eql(V23,VV[53]))goto T976;
  1483.     base[2]= make_cons(VV[104],cdr(base[0]));
  1484.     goto T975;
  1485. T976:;
  1486.     if(!eql(V23,VV[52]))goto T977;
  1487.     base[2]= make_cons(VV[108],cdr(base[0]));
  1488.     goto T975;
  1489. T977:;
  1490.     if(!eql(V23,VV[54]))goto T978;
  1491.     base[2]= make_cons(VV[112],cdr(base[0]));
  1492.     goto T975;
  1493. T978:;
  1494.     if(!eql(V23,VV[105]))goto T979;
  1495.     base[2]= make_cons(VV[113],cdr(base[0]));
  1496.     goto T975;
  1497. T979:;
  1498.     if(!eql(V23,VV[114]))goto T980;
  1499.     base[3]= make_cons(VV[115],cdr(base[0]));
  1500.     base[2]= list(2,VV[104],base[3]);
  1501.     goto T975;
  1502. T980:;
  1503.     if(!eql(V23,VV[116]))goto T981;
  1504.     base[3]= make_cons(VV[115],cdr(base[0]));
  1505.     base[2]= list(2,VV[108],base[3]);
  1506.     goto T975;
  1507. T981:;
  1508.     if(!eql(V23,VV[117]))goto T982;
  1509.     base[3]= make_cons(VV[115],cdr(base[0]));
  1510.     base[2]= list(2,VV[112],base[3]);
  1511.     goto T975;
  1512. T982:;
  1513.     if(!eql(V23,VV[111]))goto T983;
  1514.     base[3]= make_cons(VV[115],cdr(base[0]));
  1515.     base[2]= list(2,VV[113],base[3]);
  1516.     goto T975;
  1517. T983:;
  1518.     base[2]= Cnil;}
  1519. T975:;
  1520.     lispcall_no_event(base+1,1);
  1521.     return;
  1522. }
  1523. /*    function definition for C1NTHCDR-CONDITION    */
  1524.  
  1525. static L51()
  1526. {    register object *base=vs_base;
  1527.     register object *sup=base+VM27;
  1528.     vs_reserve(VM27);
  1529.     check_arg(1);
  1530.     vs_top=sup;
  1531. TTL:;
  1532.     if(((endp(base[0])?Ct:Cnil))==Cnil){
  1533.     goto T984;}
  1534.     base[1]= Cnil;
  1535.     vs_top=(vs_base=base+1)+1;
  1536.     return;
  1537. T984:;
  1538.     if(((endp(cdr(base[0]))?Ct:Cnil))==Cnil){
  1539.     goto T986;}
  1540.     base[1]= Cnil;
  1541.     vs_top=(vs_base=base+1)+1;
  1542.     return;
  1543. T986:;
  1544.     if(endp(cddr(base[0]))){
  1545.     goto T988;}
  1546.     base[1]= Cnil;
  1547.     vs_top=(vs_base=base+1)+1;
  1548.     return;
  1549. T988:;
  1550.     if(type_of(car(base[0]))==t_fixnum||
  1551. type_of(car(base[0]))==t_bignum||
  1552. type_of(car(base[0]))==t_ratio||
  1553. type_of(car(base[0]))==t_shortfloat||
  1554. type_of(car(base[0]))==t_longfloat||
  1555. type_of(car(base[0]))==t_complex){
  1556.     goto T990;}
  1557.     base[1]= Cnil;
  1558.     vs_top=(vs_base=base+1)+1;
  1559.     return;
  1560. T990:;
  1561.     base[1]= VV[53];
  1562.     base[2]= car(base[0]);
  1563.     base[3]= VV[111];
  1564.     vs_top=(vs_base=base+1)+3;
  1565.     Lmonotonically_nondecreasing();
  1566.     return;
  1567. }
  1568. /*    function definition for C1NTHCDR    */
  1569.  
  1570. static L52()
  1571. {    register object *base=vs_base;
  1572.     register object *sup=base+VM28;
  1573.     vs_reserve(VM28);
  1574.     check_arg(1);
  1575.     vs_top=sup;
  1576. TTL:;
  1577.     base[1]=symbol_function(VV[157]);
  1578.     {object V24= car(base[0]);
  1579.     if(!eql(V24,VV[53]))goto T996;
  1580.     base[2]= cadr(base[0]);
  1581.     goto T995;
  1582. T996:;
  1583.     if(!eql(V24,VV[52]))goto T997;
  1584.     base[2]= make_cons(VV[118],cdr(base[0]));
  1585.     goto T995;
  1586. T997:;
  1587.     if(!eql(V24,VV[54]))goto T998;
  1588.     base[2]= make_cons(VV[119],cdr(base[0]));
  1589.     goto T995;
  1590. T998:;
  1591.     if(!eql(V24,VV[105]))goto T999;
  1592.     base[2]= make_cons(VV[120],cdr(base[0]));
  1593.     goto T995;
  1594. T999:;
  1595.     if(!eql(V24,VV[114]))goto T1000;
  1596.     base[2]= make_cons(VV[115],cdr(base[0]));
  1597.     goto T995;
  1598. T1000:;
  1599.     if(!eql(V24,VV[116]))goto T1001;
  1600.     base[3]= make_cons(VV[115],cdr(base[0]));
  1601.     base[2]= list(2,VV[118],base[3]);
  1602.     goto T995;
  1603. T1001:;
  1604.     if(!eql(V24,VV[117]))goto T1002;
  1605.     base[3]= make_cons(VV[115],cdr(base[0]));
  1606.     base[2]= list(2,VV[119],base[3]);
  1607.     goto T995;
  1608. T1002:;
  1609.     if(!eql(V24,VV[111]))goto T1003;
  1610.     base[3]= make_cons(VV[115],cdr(base[0]));
  1611.     base[2]= list(2,VV[120],base[3]);
  1612.     goto T995;
  1613. T1003:;
  1614.     base[2]= Cnil;}
  1615. T995:;
  1616.     lispcall_no_event(base+1,1);
  1617.     return;
  1618. }
  1619. /*    function definition for C1RPLACA-NTHCDR    */
  1620.  
  1621. static L53()
  1622. {    register object *base=vs_base;
  1623.     register object *sup=base+VM29;
  1624.     vs_reserve(VM29);
  1625.     check_arg(1);
  1626.     vs_top=sup;
  1627. TTL:;
  1628.     base[1]= simple_symlispcall_no_event(VV[132],base+2,0);
  1629.     if(endp(base[0])){
  1630.     goto T1006;}
  1631.     if(endp(cdr(base[0]))){
  1632.     goto T1006;}
  1633.     if(!(endp(cddr(base[0])))){
  1634.     goto T1005;}
  1635. T1006:;
  1636.     base[2]= VV[42];
  1637.     base[3]= VV[105];
  1638.     base[4]= make_fixnum(length(base[0]));
  1639.     (void)simple_symlispcall_no_event(VV[133],base+2,3);
  1640. T1005:;
  1641.     if(endp(cdddr(base[0]))){
  1642.     goto T1015;}
  1643.     base[2]= VV[42];
  1644.     base[3]= VV[105];
  1645.     base[4]= make_fixnum(length(base[0]));
  1646.     (void)simple_symlispcall_no_event(VV[133],base+2,3);
  1647. T1015:;
  1648.     if(!(type_of(cadr(base[0]))==t_fixnum||
  1649. type_of(cadr(base[0]))==t_bignum||
  1650. type_of(cadr(base[0]))==t_ratio||
  1651. type_of(cadr(base[0]))==t_shortfloat||
  1652. type_of(cadr(base[0]))==t_longfloat||
  1653. type_of(cadr(base[0]))==t_complex)){
  1654.     goto T1022;}
  1655.     base[2]= VV[53];
  1656.     base[3]= cadr(base[0]);
  1657.     base[4]= VV[121];
  1658.     vs_top=(vs_base=base+2)+3;
  1659.     Lmonotonically_nondecreasing();
  1660.     vs_top=sup;
  1661.     if((vs_base[0])==Cnil){
  1662.     goto T1022;}
  1663.     {object V25= cadr(base[0]);
  1664.     base[3]= list(2,car(base[0]),caddr(base[0]));
  1665.     base[4]= base[1];
  1666.     base[2]= simple_symlispcall_no_event(VV[143],base+3,2);
  1667.     base[3]= list(4,VV[44],base[1],V25,base[2]);
  1668.     vs_top=(vs_base=base+3)+1;
  1669.     return;}
  1670. T1022:;
  1671.     base[3]= base[0];
  1672.     base[4]= base[1];
  1673.     base[2]= simple_symlispcall_no_event(VV[143],base+3,2);
  1674.     base[3]= list(4,VV[57],base[1],VV[42],base[2]);
  1675.     vs_top=(vs_base=base+3)+1;
  1676.     return;
  1677. }
  1678. /*    function definition for C2RPLACA-NTHCDR-IMMEDIATE    */
  1679.  
  1680. static L54()
  1681. {    register object *base=vs_base;
  1682.     register object *sup=base+VM30;
  1683.     vs_reserve(VM30);
  1684.     bds_check;
  1685.     check_arg(2);
  1686.     vs_top=sup;
  1687. TTL:;
  1688.     bds_bind(VV[71],symbol_value(VV[71]));
  1689.     bds_bind(VV[89],VV[53]);
  1690.     base[4]= base[1];
  1691.     base[5]= VV[122];
  1692.     base[1]= simple_symlispcall_no_event(VV[155],base+4,2);
  1693.     if((symbol_value(VV[76]))==Cnil){
  1694.     goto T1041;}
  1695.     princ_str("\n    {object l= ",VV[60]);
  1696.     {int V26;
  1697.     int V27;
  1698.     V26= fix(base[0]);
  1699.     V27= 0;
  1700. T1049:;
  1701.     if(!((V27)>=(V26))){
  1702.     goto T1050;}
  1703.     goto T1045;
  1704. T1050:;
  1705.     princ_str("cdr(",VV[60]);
  1706.     V27= (V27)+1;
  1707.     goto T1049;}
  1708. T1045:;
  1709.     base[4]= car(base[1]);
  1710.     (void)simple_symlispcall_no_event(VV[137],base+4,1);
  1711.     {int V28;
  1712.     int V29;
  1713.     V28= fix(base[0]);
  1714.     V29= 0;
  1715. T1066:;
  1716.     if(!((V29)>=(V28))){
  1717.     goto T1067;}
  1718.     goto T1062;
  1719. T1067:;
  1720.     princ_char(41,VV[60]);
  1721.     V29= (V29)+1;
  1722.     goto T1066;}
  1723. T1062:;
  1724.     princ_char(59,VV[60]);
  1725.     princ_str("\n    if(type_of(l)!=t_cons)FEwrong_type_argument(Scons,l);",VV[60]);
  1726.     princ_str("\n    l->c.c_car= ",VV[60]);
  1727.     base[4]= cadr(base[1]);
  1728.     (void)simple_symlispcall_no_event(VV[137],base+4,1);
  1729.     princ_str(";}",VV[60]);
  1730.     goto T1039;
  1731. T1041:;
  1732.     princ_str("\n    ",VV[60]);
  1733.     base[4]= car(base[1]);
  1734.     (void)simple_symlispcall_no_event(VV[137],base+4,1);
  1735.     {int V30;
  1736.     int V31;
  1737.     V30= fix(base[0]);
  1738.     V31= 0;
  1739. T1092:;
  1740.     if(!((V31)>=(V30))){
  1741.     goto T1093;}
  1742.     goto T1088;
  1743. T1093:;
  1744.     princ_str("\n    ->c.c_cdr",VV[60]);
  1745.     V31= (V31)+1;
  1746.     goto T1092;}
  1747. T1088:;
  1748.     princ_str("\n    ->c.c_car= ",VV[60]);
  1749.     base[4]= cadr(base[1]);
  1750.     (void)simple_symlispcall_no_event(VV[137],base+4,1);
  1751.     princ_char(59,VV[60]);
  1752. T1039:;
  1753.     base[4]= cadr(base[1]);
  1754.     (void)simple_symlispcall_no_event(VV[138],base+4,1);
  1755.     symlispcall_no_event(VV[156],base+4,0);
  1756.     bds_unwind1;
  1757.     bds_unwind1;
  1758.     return;
  1759. }
  1760. /*    function definition for C1LIST-NTH    */
  1761.  
  1762. static L55()
  1763. {    register object *base=vs_base;
  1764.     register object *sup=base+VM31;
  1765.     vs_reserve(VM31);
  1766.     check_arg(1);
  1767.     vs_top=sup;
  1768. TTL:;
  1769.     base[1]= simple_symlispcall_no_event(VV[132],base+2,0);
  1770.     if(endp(base[0])){
  1771.     goto T1110;}
  1772.     if(!(endp(cdr(base[0])))){
  1773.     goto T1109;}
  1774. T1110:;
  1775.     base[2]= VV[42];
  1776.     base[3]= VV[54];
  1777.     base[4]= make_fixnum(length(base[0]));
  1778.     (void)simple_symlispcall_no_event(VV[133],base+2,3);
  1779. T1109:;
  1780.     if(endp(cddr(base[0]))){
  1781.     goto T1117;}
  1782.     base[2]= VV[42];
  1783.     base[3]= VV[54];
  1784.     base[4]= make_fixnum(length(base[0]));
  1785.     (void)simple_symlispcall_no_event(VV[133],base+2,3);
  1786. T1117:;
  1787.     if(!(type_of(car(base[0]))==t_fixnum||
  1788. type_of(car(base[0]))==t_bignum||
  1789. type_of(car(base[0]))==t_ratio||
  1790. type_of(car(base[0]))==t_shortfloat||
  1791. type_of(car(base[0]))==t_longfloat||
  1792. type_of(car(base[0]))==t_complex)){
  1793.     goto T1124;}
  1794.     base[2]= VV[53];
  1795.     base[3]= car(base[0]);
  1796.     base[4]= VV[121];
  1797.     vs_top=(vs_base=base+2)+3;
  1798.     Lmonotonically_nondecreasing();
  1799.     vs_top=sup;
  1800.     if((vs_base[0])==Cnil){
  1801.     goto T1124;}
  1802.     {object V32= car(base[0]);
  1803.     base[3]= make_cons(cadr(base[0]),Cnil);
  1804.     base[4]= base[1];
  1805.     base[2]= simple_symlispcall_no_event(VV[143],base+3,2);
  1806.     base[3]= list(4,VV[48],base[1],V32,base[2]);
  1807.     vs_top=(vs_base=base+3)+1;
  1808.     return;}
  1809. T1124:;
  1810.     base[3]= base[0];
  1811.     base[4]= base[1];
  1812.     base[2]= simple_symlispcall_no_event(VV[143],base+3,2);
  1813.     base[3]= list(4,VV[57],base[1],VV[46],base[2]);
  1814.     vs_top=(vs_base=base+3)+1;
  1815.     return;
  1816. }
  1817. /*    function definition for C2LIST-NTH-IMMEDIATE    */
  1818.  
  1819. static L56()
  1820. {    register object *base=vs_base;
  1821.     register object *sup=base+VM32;
  1822.     vs_reserve(VM32);
  1823.     bds_check;
  1824.     check_arg(2);
  1825.     vs_top=sup;
  1826. TTL:;
  1827.     setq(VV[73],number_plus(symbol_value(VV[73]),VV[52]));
  1828.     base[2]= symbol_value(VV[73]);
  1829.     bds_bind(VV[71],symbol_value(VV[71]));
  1830.     bds_bind(VV[89],VV[53]);
  1831.     base[5]= base[1];
  1832.     base[6]= VV[123];
  1833.     base[1]= simple_symlispcall_no_event(VV[155],base+5,2);
  1834.     princ_str("\n    {object V",VV[60]);
  1835.     base[5]= base[2];
  1836.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1837.     princ_str("= ",VV[60]);
  1838.     if((symbol_value(VV[76]))==Cnil){
  1839.     goto T1150;}
  1840.     {int V33;
  1841.     int V34;
  1842.     V33= fix(base[0]);
  1843.     V34= 0;
  1844. T1156:;
  1845.     if(!((V34)>=(V33))){
  1846.     goto T1157;}
  1847.     goto T1152;
  1848. T1157:;
  1849.     princ_str("cdr(",VV[60]);
  1850.     V34= (V34)+1;
  1851.     goto T1156;}
  1852. T1152:;
  1853.     base[5]= car(base[1]);
  1854.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1855.     {int V35;
  1856.     int V36;
  1857.     V35= fix(base[0]);
  1858.     V36= 0;
  1859. T1173:;
  1860.     if(!((V36)>=(V35))){
  1861.     goto T1174;}
  1862.     goto T1169;
  1863. T1174:;
  1864.     princ_char(41,VV[60]);
  1865.     V36= (V36)+1;
  1866.     goto T1173;}
  1867. T1169:;
  1868.     princ_char(59,VV[60]);
  1869.     princ_str("\n    if(type_of(V",VV[60]);
  1870.     base[5]= base[2];
  1871.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1872.     princ_str(")!=t_cons)",VV[60]);
  1873.     princ_str("\n     FEwrong_type_argument(Scons,V",VV[60]);
  1874.     base[5]= base[2];
  1875.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1876.     princ_str(");",VV[60]);
  1877.     goto T1148;
  1878. T1150:;
  1879.     princ_str("\n    ",VV[60]);
  1880.     base[5]= car(base[1]);
  1881.     (void)simple_symlispcall_no_event(VV[137],base+5,1);
  1882.     {int V37;
  1883.     int V38;
  1884.     V37= fix(base[0]);
  1885.     V38= 0;
  1886. T1202:;
  1887.     if(!((V38)>=(V37))){
  1888.     goto T1203;}
  1889.     goto T1198;
  1890. T1203:;
  1891.     princ_str("\n    ->c.c_cdr",VV[60]);
  1892.     V38= (V38)+1;
  1893.     goto T1202;}
  1894. T1198:;
  1895.     princ_char(59,VV[60]);
  1896. T1148:;
  1897.     base[5]= list(2,VV[104],base[2]);
  1898.     (void)simple_symlispcall_no_event(VV[138],base+5,1);
  1899.     princ_char(125,VV[60]);
  1900.     symlispcall_no_event(VV[156],base+5,0);
  1901.     bds_unwind1;
  1902.     bds_unwind1;
  1903.     return;
  1904. }
  1905.